home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The AGA Experience 3
/
AGA Experience Volume 3 (1997)(NFA - SAdENESS)[!].iso
/
software
/
utilities
/
graphics
/
artstudiov1
/
install_artstudio
< prev
next >
Wrap
Text File
|
1996-08-21
|
4KB
|
203 lines
; $VER: ArtStudio_Install 2.009 (28.05.96)
; Script to install ArtStudio Version 2.0
(complete 0)
(user 1)
;=============================================================================
; English strings
(set default_lang 4)
(set #bad-kick "ArtStudio needs Amiga-OS 2.0 or higher")
(set SelectDir1Msg
(cat "Please select a directory\nto install ArtStudio in"
)
)
(set InstallArtStudioProg "Installing ArtStudio release 1.293 main program...")
(set InstallLoader "Installing loader...")
(set InstallViewer "Installing viewers...")
(set InstallARexx "Installing ARexx files...")
(set AssignAdd1
(cat "\nAdding the ArtStudio assignment to s:user-startup - it currently looks like this:\n\n%s\n\n"
(cat "assign ArtStudio: " ArtStudioDir)
)
)
(set UpDateASL "Checking and updating ASL.library, if needed...")
;=============================================================================
; German strings
(if (= @language "deutsch")
(
(set default_lang 2)
(set #bad-kick "ArtStudio benötigt mindestens Amiga-OS 2.0 oder höher")
(set SelectDir1Msg
(cat "Wählen Sie ein Verzeichnis, wo Sie ArtStudio "
"installieren möchten. Ein Verzeichnis mit den "
"Namen ArtStudio wird automatisch angelegt!"
)
)
(set InstallArtStudioProg "Installiere ArtStudio Version 2.0 Hauptprogramm...")
(set InstallLoader "Installiere Lademodule...")
(set InstallViewer "Installiere Anzeigemodule...")
(set InstallARexx "Installiere ARexx Programme...")
(set AssignAdd1
(cat "\nFüge ArtStudio Zuweisung an s:user-startup - Es würde wie folgt Aussehen:\n\n%s\n\n"
(cat "assign ArtStudio: " ArtStudioDir)
)
)
(set UpDateASL "Prüfe und Erneuere die ASL.library, wenn nötig...")
)
)
(if (> (* 37 65536) (getversion "exec.library" (resident)))
(abort #bak-kick)
)
(welcome)
(set old_level @user-level)
(user 2)
(set target (askdir
(prompt SelectDir1Msg)
(help #which-dir-help)
(default "Work:")
))
(user old_level)
(set @default-dest target)
(set ArtStudioDir (tackon target "ArtStudio"))
(set LoaderDir (tackon ArtStudioDir "Loader"))
(set ViewerDir (tackon ArtStudioDir "Viewer"))
(set RexxDir (tackon ArtStudioDir "Rexx"))
(if ( < (exists ArtStudioDir (noreq) ) 2)
(makedir ArtStudioDir
(prompt "Creating ArtStudio directory...")
(help @makedir-help)
(infos)
)
)
(complete 10)
(if ( < (exists LoaderDir (noreq) ) 2)
(makedir LoaderDir
(prompt "Creating Loader directory...")
; (help @makedir-help)
)
)
(complete 11)
(if ( < (exists ViewerDir (noreq) ) 2)
(makedir ViewerDir
(prompt "Creating Viewer directory...")
; (help @makedir-help)
)
)
(complete 12)
(if ( < (exists RexxDir (noreq) ) 2)
(makedir RexxDir
(prompt "Creating Rexx directory...")
; (help @makedir-help)
)
)
(complete 15)
(copyfiles
(prompt "Installing ArtStudio release 1.293 main program...")
(help @copyfiles-help)
(source "ArtStudio")
(dest ArtStudioDir)
(confirm)
)
(complete 35)
(copyfiles
(prompt "Installing ArtStudio Icon...")
(help @copyfiles-help)
(source "ArtStudio.info")
(dest ArtStudioDir)
(confirm)
)
(complete 40)
(copyfiles
(prompt "Installing loader...")
(help @copyfiles-help)
(source "Loader/")
(dest LoaderDir)
(all)
(confirm)
)
(complete 50)
(copyfiles
(prompt "Installing viewers...")
(help @copyfiles-help)
(source "Viewer/")
(dest ViewerDir)
(all)
(confirm)
)
(complete 55)
(copyfiles
(prompt "Installing ARexx files...")
(help @copyfiles-help)
(source "Rexx/")
(dest RexxDir)
(all)
(confirm)
)
(complete 68)
(startup "ArtStudio"
(prompt ("\nAdding the ArtStudio assignment to s:user-startup - it currently looks like this:\n\n%s\n\n" (cat "assign ArtStudio: " ArtStudioDir) ) )
(help @startup-help)
(command (cat "assign ArtStudio: " ArtStudioDir))
)
(complete 90)
(copylib
(prompt "Checking and updating ASL.library, if needed...")
(help @copylib-help)
(source "libs/asl.library")
(dest "libs:")
(confirm)
)
(run "c/assign ArtStudio: " ArtStudioDir
(prompt "Assign ArtStudio...")
(help "Keine Hilfe verfügbar.")
)
(complete 100)